home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SPX30.ZIP / DEMO11.ZIP / DEMO11.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-06-13  |  1.1 KB  |  42 lines
  1. Program Demo11;
  2.  
  3. { SPX library - translate demo Copyright 1994 Scott D. Ramsay  }
  4.  
  5. Uses spx_vga,spx_fnc,spx_sfn,spx_mos;
  6.  
  7. var
  8.   dac          : RGBlist;         { current palette }
  9.   tbl01,tbl02  : array[0..255] of byte;
  10.   d,e          : integer;
  11.   fil          : file;
  12. begin
  13.   Openmode(3);
  14.   if mousereset=0
  15.     then
  16.         begin
  17.           CloseMode;
  18.           writeln('This demo needs a mouse installed');
  19.           halt(1);
  20.         end;
  21.   LoadColors('regular.col',dac); fsetcolors(dac);
  22.   assign(fil,'reglite.tbl'); reset(fil,1); blockread(fil,tbl01,256);
  23.   close(fil);
  24.   assign(fil,'regdark.tbl'); reset(fil,1); blockread(fil,tbl02,256);
  25.   close(fil);
  26.   setpageactive(2);
  27.   for d := 0 to 255 do
  28.     bar(d mod 16*20,d shr 4*12,d mod 16*20+19,d shr 4*12+11,d);
  29.   drawletter(50,2,15,0,'Move mouse around');
  30.   pcopy(2,3);
  31.   getmouse(m2,m3,m4);
  32.   repeat
  33.     pcopy(3,2);
  34.     getmouse(m2,m3,m4);
  35.     ifix(m3,0,280); ifix(m4,0,160);
  36.     translatebox(m3,m4,m3+39,m4+39,tbl01);
  37.     translatebox(280-m3,160-m4,280-m3+39,160-m4+39,tbl02);
  38.     pcopy(2,1);
  39.   until m2 and 1=1;  { mouse press to quit }
  40.   CloseMode;
  41. end.
  42.